perm filename FOO.SEX[HAL,HE] blob
sn#239553 filedate 1976-09-27 generic text, type T, neo UTF8
(PR
(BL
(TVAR BLK1 BLK1_GRASP BLK1_TOP BLK2 BLK2_GRASP FINPLACE)
(SVAR GRASPHEIGHT BLK1LENGTH BLK2LENGTH BLK1WIDTH BLK2WIDTH BLK1HEIGHT)
(RVAR STAND)
(AS STAND
(AXW_ROTN YHAT 180.0000 )
)
(AS BLK1WIDTH
1.500000
)
(AS BLK2WIDTH
1.500000
)
(AS BLK1LENGTH
2.500000
)
(AS BLK2LENGTH
2.500000
)
(AS BLK1HEIGHT
2.000000
)
(AS GRASPHEIGHT
.7500000
)
(AS BLK1
(FMAKE NILROTN (VMAKE 10.00000 30.00000 .0000000 ))
)
(AS BLK2
(FMAKE NILROTN (VMAKE 6.000000 30.00000 .0000000 ))
)
(AS FINPLACE
(FMAKE NILROTN (VMAKE 8.000000 40.00000 .0000000 ))
)
(TVAR _T1)
(AFFIX BLK1_GRASP BLK1 _T1
(FMAKE STAND (VMAKE (SDIV BLK1LENGTH 2.000000 ) (SDIV BLK1WIDTH 2.000000 ) GRASPHEIGHT))
RIGIDLY)
(TVAR _T2)
(AFFIX BLK1_TOP BLK1 _T2
(FMAKE NILROTN (VMAKE .0000000 .0000000 BLK1HEIGHT))
RIGIDLY)
(TVAR _T3)
(AFFIX BLK2_GRASP BLK2 _T3
(FMAKE STAND (VMAKE (SDIV BLK2LENGTH 2.000000 ) (SDIV BLK2WIDTH 2.000000 ) GRASPHEIGHT))
RIGIDLY)
(MO BARM
BPARK
( DURATION = 3)
)
(MO BARM
BLK1_GRASP
)
(TVAR _T4)
(AFFIX BLK1 BARM _T4 () RIGIDLY)
(MO BLK1
FINPLACE
)
(UNFIX BLK1 BARM)
(MO BARM
BLK2_GRASP
)
(TVAR _T5)
(AFFIX BLK2 BARM _T5 () RIGIDLY)
(MO BLK2
BLK1_TOP
)
(UNFIX BLK2 BARM)
(MO BARM
BPARK
)
)
)